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-TITLE FORS$R unite .5U = entry point for FORTRAN rp iA F rem UNFORMAT 
IDENT /1-01 File: FORREWRSU.MAR Edit: JAW! 


i ateneneeeeeeneeeeeeeeerensteeenennnsenennentteeeenentieenstsieenstsesesses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pas AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pansioreneto’” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION." NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ABSTRACT: | 


This module contains the entry ig for the FORTRAN 


REWRITE ep tt UNF ORMATTE /O0 statement. It is simply 


a call to FORS$IO_BEG with bits in RO which describe the 
par eneter ise. FORS$$IO_BEG interprets the parameters. 


| 
| 
; MAINTENANCE NOTE : 

The transfer vector (RTLVECTOR+ALLGBL) must have the following: | 


. TRANSFER FORSREWRITE_SU 
. MASK FOR 
BRW FORSREWRITE_Su+2 
This puts the correct mask in entry vector, that is FOR$$10_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$I0_BEG. 
; ENVIRONMENT: User access mode; mixture of AST level or not 


; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


. ; MODIFIED BY: 
. Hastings, 29-July-78 


ee ee ew ele o fala lol ola lelolololololololololololololololololololo a) 
be ene ee en ene ne ee ee ee we we ewan lo lolelololololololololololololelolelelelololololo alo) 
FW OOD NAME WIN HM OODNAU EWN OOD NAU EWN OOONAU ESWC OONOUS WN 


SOoOOCOOooooooooooooooooooooooSaoSaG 
SOOoooooooooooooooooooooococoo 


¥ FACILITY: FORTRAN Support Library - user callable 


PVPS B® Be BS BS SB BE ES NANA NNN NIA PONONONPIPONONNINY 2 PS OO OS 
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-SBTTL HISTORY ; Detailed Current Edit History 


FORSREWRITE_SU - ent 
1-013 HISTO 


I 
NO 


Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 

Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. JBS 16-NOV-78 
JBS 07-DEC-78 
;hange, statenent Sype sysbo}s to be ISBSK..._ JBS 11-DEC-78 


-78 
# FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_1I0, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD-KU, FORSREWRITE_SU, 
SBL 2-May-1979 | 
1-006 - Remove all entry peross that need object time formatting, 
we them in FORSENTRY_OBJ so that we can arrange to 
oad the foray compiler only when it is needed. 
JBS 26-JUN-19 
1-007 - Remove entry point FORSENCODE_MF; we will code a new module 
for it and FOR$$IO_BEG, to see how much 1/0 initiation time 
improves. JBS 02-JUL-1979 
008 - Do likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
009 - Remove all entry points except FORSREWRITE_SU; each of the 
others gets its own module so we can Pe ge | load 
the necessary UDF and REC modules. 09=JUL=1979 | 
1-010 = Correct a typo which caused the entry point name 
to be wrong. JBS 11-JUL-1979 
1-011 = Use the correct statement type code! It had been using 
WXF! SBL 9-August-1979 
1-012 - New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 
1-013 - Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 


seeevueeen 
oO 
a 
3 
re) 
e 
ww 
vad 
a 
o 
@ 
3 
® 
=] 
o 
fad 
“=< 
vo 
e 
ww 
“=< 
3 
Cs 
° 
~- 
wn 
oe 
° 
Cc 
@ 
rc 
Cc 
x 
. 
. 
. 


NOUS WN OC OONAUES WR O OONO US Wh O00 
Tere Terre Pere rere rere re rere rererererererererererere rere y 


0809090909 0009 098 NI NIN NI NINN NINA AAA AAAAAOUI 


FC 


Be Be Be Be Be Be Be Se Be Se se Oe Be Ge Ge Se Be SH Se Se Se FH Fe SH Se SH Se Se ae Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH SH Se Be ee eeae 


FORSREWRITE_SU 
1-013 


pepe fe fw fo folololololololololololololololo! 
WIWAIRININNNNININININ 2 2 2 PP PS HF MODOC OOOOCOOOOOO0O00O00O0E 
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“SEP=1 0: 


-SBTTL DECLARATIONS 


+ INCLUDE FILES: 


SFORPAR 
$1S 


: EXTERNAL SYMBOLS: 


DS 


the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_WUO, FORSSUDF_WU1, FORSSUDF_wU9 
-EXTRN FORSSREC"WXUO, FORSSREC_WXU1, FORSSREC_WXU9 


> MACROS: 


NONE 


; PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 


EQUATED SYMBOLS: 


+ OWN STORAGE: 


NONE 


Define inter-module FORTRAN symbols 
BOEF ; Define statement type symbols 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORS$10_BEG ; common 1/0 statement processing 
: The oot references are to make sure the necessary UDF and REC 
modules are loaded. These are the routines which are called through 


sence ts . rc 
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1-013 FORSREURETE SU = REWRITE Sequential UNFO G-SEP-1984 11:00:31 LFORRTL.SReSFORREURSU.MAR: 1 29° (hy. 1 
; ~SBTTL FORSREWRITE_SU = REWRITE Sequential UNFORMATTED | : 
135 34+ ; 
0 : § 3 FUNCTIONAL DESCRIPTION: ; 
60 1 8 : Initialize the FORTRAN I/0 systes to perform ; 
B80 173 3 a REWRITE sequential UNFORMATTED 1/0 statement. | : 
000 141 : CALLING SEQUENCE: | ; 
0900 136 3 ; 
00 145 ; CALL FORSREWRITE_SU (unit.rl.v : 
$88 148 : C, err_adr.j.r C, end_adr.j.rJJ) | ; 
0000 146 ; INPUT PARAMETERS: ; 
0000 147; $ 
0000 148; unit.rl.v logical unit number ; 
0000 149 ; err_adr.j.rJ optional ERR= address : 
0000 150; end_adr.j.rJ optional END= address : 
0000 151 ; 5 
0000 136 3; IMPLICIT INPUTS: 5 
0000 153; 3 
Bas 133 3 NONE except those used by FORS$$IO_BEG. : 
0000 156 ; OUTPUT PARAMETERS: | é 
0000 157 ; $ 
0000 158; NONE | 3 
0000 159; 3 
0000 160 ; IMPLICIT OUTPUTS: | ; 
0000 161; 5 
0000 16¢ : NONE except those left by FORS$$I0_BEG. : 
0000 163; 3 
0000 164 ; COMPLETION CODES: é 
0000 165 ; 3 
0000 166; NONE | 3 
0000 167 ; : 
0000 168 ; SIDE EFFECTS: : 
0000 169; 3 
0000 170 ; NONE except those of FOR$$I0_BEG. : 
0000 171; 3 
0000 176 :-- 5 
0000 17 3 
000° 0000 174 FORSREWRITE_SU:: MASK FORS$$10_BEG é 
50 OF 9A 4 175 MOVZBL #ISBSK_ST_TY_WxU, RO 3; Statement type 3 
00000002'GF 17 ied 176 JMP G*FORS$I0_BEG+2 3 branch past call mask : 
0008 178 3 
000B 179 ~END | : 


FORSREWRITE_SU 
Symbol table 


FORSS10_BEG 
FORSSREC_wxu0 
FORSSREC_WxuU1 


Initialization 
Command processing 
Pass 1 

— table sort 


ass 
Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


Macro Library name 


TOTALS (all Libraries) 


The working set Limit was 1050 
6695 bytes (14 pages) of virtua 
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RERKARET 
RReeeeee 
RReReeeee 
Reeeeeee 
Reeeeeee 
eeeereeee 
RERRRREE 
00000000 RG 
= 0000000F 


Allocation 


00000000 
00000008 


Page faults 


—— 
= MLW 
ONN NOWWO 


Ww 
w 
uw 


-$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 
$255$DUA28:CSYSLIBJSTARLET.MLB;2 
183 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRE SSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORREWRSU/OBJ=0BJ$:FORREWRSU MSRC$:FORREWRSU/UPDATE=(ENHS:FORREWRSU) +L 1 | 


>< Ct OK OK OE OE OE 


SOOCOOOOOO 
SSoCoooCSoSoSSO 
SOOCOSCOOCO 
SSoOSCSoSOSSO 
SOOOSOOOOOO 
NMOOCSSOO=—300 
. * — . a ee Oo oO oo 

WOMNOM— VO 


AOOoOf&—wao 


ages. 
memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
179 source Lines were read in Pass 1, producin 
9 pages of virtual memory were used to define 
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weer err eee eswaoes + 


PSECT No. Attributes 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 


( 0.) NOPIC USR CON ABS CL 
P CL SHR EXE RD NOWRT NOVEC LONG 


C 1.) IC USR CON REL 


rr 


eee eee Y 


Elapsed Time 


00:00:00.98 


00:00:03.65 
00:00:04.16 
00:00:00.65 
00:00:02.84 
00:00:00.02 
00:00:00.02 
00:00:00.00 
00:00:12.33 


object records in Pass 2. 


Macro Library statistics ; 


Macros defined 
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